;		Lexis Login Script File
;              Please see READ.ME for details
; LOGON TO LEXIS/NEXIS THRU  MEADNET
jump begin
label PLEASE
clear
mess    PLEASE TRY AGAIN.  LEXIS IS NOT RESPONDING.
.
bye
abort 
label begin
otimeout 200 jump PLEASE
whenever "TERMINAL=" reply |
wait char "@"
reply C 51330 |
wait string "assistance)"
reply .vt100 |
wait string "TRANSMIT key."
reply *** ID ***|
;
;LOGON TO LEXIS/NEXIS THRU TELENET
;jump begin
;label PLEASE
;clear
;mess     PLEASE TRY AGAIN.  LEXIS IS NOT RESPONDING.
;.
;bye
;abort 
;label begin
;wait delay 20
;reply @
;wait delay 10
;reply |
;wait delay 10
;reply |
;otimeout 200 jump PLEASE
;whenever "TERMINAL=" reply |
;wait char "@"
;reply C 51330 |
;wait string "assistance)"
;reply .vt100 |
;wait string "TRANSMIT key."
;reply *** ID ***|
;END LOGON THRU TELENET